SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TDFLUJ_PROY_Q01]
/*-----------------------------------------------------*/        
/*---Empresa               OFISIS S.A.              --*/        
/*---Cliente               CIA Hitepima     		--*/        
/*---Sistema               Tesoreria     			--*/        
/*---M«dulo                Empresa      			--*/        
/*---Programa              FLUJO DE CAJA PROY. MENSUAL--*/        
/*---Script                SP_TDFLUJ_PROY_Q01.sql	--*/        
/*---Nombre SP             SP_TDFLUJ_PROY_Q01		--*/        
/*---Desarrollado por      Carlos Marquez			--*/        
/*---Fecha Creaci«n        08/04/2005				--*/        
/*---Base Datos            SQL SERVER				--*/        
/*---Versi«n               2000						--*/        
/*---Carga Plantilla Flujo Ejecutado				--*/        
/*-----------------------------------------------------*/        
/*-----------------------------------------------------*/        
/*---Modificado 1 por              					--*/        
/*---Fecha Modificaci«n            					--*/         
/*---Detalle Modificaci«n          					--*/        
/*-------------------------------------------------------*/        
/*-------------------------------------------------------*/        
/*--- Drop Proc SP_TDFLUJ_PROY_Q01      				--*/        
/*--- Grant Execute on SP_TDFLUJ_PROY_Q01 to public  	--*/         
/*--- SP_TDFLUJ_PROY_Q01 '01', 2006, 1					--*/        
/*--------------------------------------------------------*/        
@ISCO_EMPR		TD_VC_002,        
@INNU_ANIO		TD_IN_001,
@INNU_SECU		TD_IN_001
--With Encryption
As        
        
Select	        TDFLUJ_PROY.CO_ARUB, TDFLUJ_PROY.CO_RUBR, TDFLUJ_PROY.CO_CLSU, 
		TTSUBR_FINA.DE_SUBR, 
		TDFLUJ_PROY.IM_SALD_INIC, 
		TDFLUJ_PROY.IM_CALC_ME01, TDFLUJ_PROY.IM_CALC_ME02, TDFLUJ_PROY.IM_CALC_ME03, TDFLUJ_PROY.IM_CALC_ME04, 
		TDFLUJ_PROY.IM_CALC_ME05, TDFLUJ_PROY.IM_CALC_ME06, TDFLUJ_PROY.IM_CALC_ME07, TDFLUJ_PROY.IM_CALC_ME08, 
		TDFLUJ_PROY.IM_CALC_ME09, TDFLUJ_PROY.IM_CALC_ME10, TDFLUJ_PROY.IM_CALC_ME11, TDFLUJ_PROY.IM_CALC_ME12,
		'D' ST_AGRU_CLSU,
		TTSUBR_FINA.NU_ORDE
From	TDFLUJ_PROY, TTSUBR_FINA
Where
TDFLUJ_PROY.CO_EMPR =  @ISCO_EMPR And
TDFLUJ_PROY.NU_ANIO =  @INNU_ANIO And
TDFLUJ_PROY.NU_SECU =  @INNU_SECU And

TDFLUJ_PROY.CO_EMPR = TTSUBR_FINA.CO_EMPR And
TDFLUJ_PROY.CO_ARUB = TTSUBR_FINA.CO_ARUB And
TDFLUJ_PROY.CO_RUBR = TTSUBR_FINA.CO_RUBR And
TDFLUJ_PROY.CO_CLSU = TTSUBR_FINA.CO_SUBR And 
ST_PROY = 'S'
Union All 
Select	TTSUBR_FINA.CO_ARUB, TTSUBR_FINA.CO_RUBR, TTSUBR_FINA.CO_SUBR, 
		TTSUBR_FINA.DE_SUBR, 
		0.00, 
		0.00, 0.00, 0.00, 0.00, 
		0.00, 0.00, 0.00, 0.00, 
		0.00, 0.00, 0.00, 0.00,
		'D' ST_AGRU_CLSU,
		TTSUBR_FINA.NU_ORDE
From	TTSUBR_FINA
Where
TTSUBR_FINA.CO_EMPR =  @ISCO_EMPR And
ST_PROY = 'S' And
Not Exists ( Select TDFLUJ_PROY.CO_EMPR
			From TDFLUJ_PROY
			Where
			TDFLUJ_PROY.NU_ANIO =  @INNU_ANIO And
			TDFLUJ_PROY.NU_SECU =  @INNU_SECU And
			
			TDFLUJ_PROY.CO_EMPR = TTSUBR_FINA.CO_EMPR And
			TDFLUJ_PROY.CO_ARUB = TTSUBR_FINA.CO_ARUB And
			TDFLUJ_PROY.CO_RUBR = TTSUBR_FINA.CO_RUBR And
			TDFLUJ_PROY.CO_CLSU = TTSUBR_FINA.CO_SUBR
			
		)			

Order By TTSUBR_FINA.NU_ORDE      


RETURN        
/********************************* FIN ***********************************/


GO
